load(resfile_orig[1])
nn_mod <- torch_load(modfile_orig[1])
plot_datagen_fcns(sim_res$sim_params$flist)img_suffixes <- c(paste0("_e", 1:9, "e_+05.png"), "_e1e_+06.png")
stem_pvtau1 <- here::here("sims", "results", "hshoe_smooth_pvtau_1721632_12500obs_")
stem_pvtau2 <- here::here("sims", "results", "hshoe_smooth_pvtau_2721632_12500obs_")
seed_pvtau2 <- c(19709, 809872, 264744, 498729, 336130, 263808, 877164, 218489, 234821, 616240)
seed_pvtau1 <- c(561114, 453639, 663173, 108703, 165780)
resfile_pvtau1 <- paste0(stem_pvtau1, seed_pvtau1, ".RData")
modfile_pvtau1 <- paste0(stem_pvtau1, seed_pvtau1, ".pt")
resfile_pvtau2 <- paste0(stem_pvtau2, seed_pvtau2, ".RData")
modfile_pvtau2 <- paste0(stem_pvtau2, seed_pvtau2, ".pt")load(resfile_pvtau1[1])
nn_mod <- torch_load(modfile_pvtau1[1])
plot_datagen_fcns(sim_res$sim_params$flist)stem_1k_1632 <- here::here("sims", "results", "hshoe_pvtau10_correctedkappas_216321250obs_")
stem_1k_816 <- here::here("sims", "results", "hshoe_pvtau10_correctedkappas_8161250obs_")
seed_1k <- c(215244, 272835, 124107, 782699, 798186)
resfile_1k_1632 <- paste0(stem_1k_1632, seed_1k, ".RData")
modfile_1k_1632 <- paste0(stem_1k_1632, seed_1k, ".pt")
resfile_1k_816 <- paste0(stem_1k_816, seed_1k, ".RData")
modfile_1k_816 <- paste0(stem_1k_816, seed_1k, ".pt")